perm filename FOO[PNT,HE] blob
sn#650051 filedate 1982-03-27 generic text, type T, neo UTF8
{FILE being written by POINTY on 14:12 27 Mar 1982}
SCALAR ARRAY S[1:5];
S[1]←10.000;
S[2]←20.000;
S[3]←30.000;
S[4]←40.000;
S[5]←50.000;
VECTOR ARRAY V[1:5];
V[1]←VECTOR(1.000,0.000,0.000);
V[2]←VECTOR(4.000,0.000,0.000);
V[3]←VECTOR(9.000,0.000,0.000);
V[4]←VECTOR(16.000,0.000,0.000);
V[5]←VECTOR(25.000,0.000,0.000);
ROT ARRAY R[1:5];
R[1]←ROT(ZHAT,-90.0*DEG)*ROT(YHAT,10.0*DEG)*ROT(ZHAT,90.0*DEG);
R[2]←ROT(ZHAT,-90.0*DEG)*ROT(YHAT,20.0*DEG)*ROT(ZHAT,90.0*DEG);
R[3]←ROT(ZHAT,-90.0*DEG)*ROT(YHAT,30.0*DEG)*ROT(ZHAT,90.0*DEG);
R[4]←ROT(ZHAT,-90.0*DEG)*ROT(YHAT,40.0*DEG)*ROT(ZHAT,90.0*DEG);
R[5]←ROT(ZHAT,-90.0*DEG)*ROT(YHAT,50.0*DEG)*ROT(ZHAT,90.0*DEG);
TRANS ARRAY T[1:5];
T[1]←TRANS(ROT(ZHAT,10.0*DEG),VECTOR(0.000,0.000,1.000)*INCH);
T[2]←TRANS(ROT(ZHAT,10.0*DEG),VECTOR(0.000,0.000,2.000)*INCH);
T[3]←TRANS(ROT(ZHAT,10.0*DEG),VECTOR(0.000,0.000,3.000)*INCH);
T[4]←TRANS(ROT(ZHAT,10.0*DEG),VECTOR(0.000,0.000,4.000)*INCH);
T[5]←TRANS(ROT(ZHAT,10.0*DEG),VECTOR(0.000,0.000,5.000)*INCH);